home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / microcrn / issue_30.arc / EXPERT1.PRO < prev    next >
Encoding:
Text File  |  1979-12-31  |  768 b   |  23 lines
  1.  
  2. elections(Country) :-
  3.     economy(Country, Condition),
  4.     Condition = booming,
  5.     incumbent(Person, Country),
  6.     write(' 0.6 chance of win for '),
  7.     nl,
  8.     write(Person),
  9.     nl,
  10.     !.
  11. elections(Country) :-
  12.     challenger(Person, Country),
  13.     write('challenger  '),
  14.     write(Person),
  15.     nl,
  16.     write('likely to win'),
  17.     nl,
  18.     !.
  19.  economy(usa,booming).
  20.  incumbent(reagan,usa).
  21.  challenger(mondale,usa).
  22. √á                                            80/01/0101:22                    86/03/0416:23j                A
  23. BNα  \ (08@HP